home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 2
/
AACD 2.iso
/
AACD
/
Programming
/
fpc
/
doc
/
ref
/
img81.gif
< prev
next >
Graphics Interchange Format
|
1998-09-25
|
3KB
|
530x202
|
1-bit (2 colors)
Labels:
black
|
darkness
OCR:
var i Longint; Longint; p pp array [0.. 100] of Longint; begin for i:= 0 to 100 da pp[i] := i; { Fill_array} P = @pp[0]; far i = 0 to 100 da if p[i]<pp[i] then WriteLn('Dhoh, problem !) end. { Let p point to pp }
